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FIELD 1 SYMBOL TABLE STORAGE FOR PALD (DEC-D8-ASAC-LA) 


DECUS Program Library Write-up 


DECUS NO. 8-376B 


ABSTRACT 

This overlay is for the later version of PALD (DEC-D8-ASAC-LA). The operation of the 
updated version is identical to the original. 


/USE WITH PALD—DEC-D8-ASAC-LA 

/ 

/8K OVERLAY FOR PALD 
/EXTERNAL SYMBOL TABLE STORED IN FIELD 1 
/FROM PAGE 1 TO PAGE 20 
Ml=133 
P74j2f0=156 
P76j2f0=145 
C200=]12 
BLKPTR=5327 
BLKTAB=5330 
LNKPTR=5331 
SNUM=5332 
SDECOD=520i0 
ERR1=77 
PI 2=153 
BUFTOP=5333 
SADR=23 
VADR=22 
P37=142 
PI 740=5334 
P3=151 
/ 

/ 

/ 

/ 

/ 

*6200 

6200 5205 CDSVRV, JMP .+5 /JUMP .SYM SEARCH 

/ 

/REPLACE PALD CODING WITH THE FOLLOWING 

/ 









\ 


*5221 


5221 

1727 

SVIRTL, 

TAD 1 BLKPTR 

/RECORD PREVIOUS BLOCK 

5222 

3331 


DC A LNKPTR 


5223 

1332 


TAD SNUM 


5224 

1156 


TAD P7400 


5225 

0334 


AND PI740 


5226 

7112 


CLL RTR 


5227 

7012 


RTR 


5230 

7010 


RAR 


5231 

1330 


TAD BLKTAB 


5232 

3327 

/ 

DCA BLKPTR 


5233 

1332 


TAD SNUM 


5234 

0142 


AND P37 


5235 

7001 


IAC 


5236 

7106 


CLL RTL 


5237 

7041 


CIA 


5240 

7001 


IAC 


5241 

1333 


TAD BUFTOP 


5242 

3023 


DCA SADR 


5243 

1023 


TAD SADR 


5244 

1151 


TAD P3 


5245 

3022 

/ 

DCA VADR 


5246 

1727 


TAD 1 BLKPTR 

/IS NEXT BLOCK ZERO? 

5247 

7650 


SNA CLA 


5250 

5261 


JMP SERROR 

/YES, EXCEEDS SYMBOL TABLE 

5251 

1727 


TAD 1 BLKPTR 

/IS BLOCK SAME AS LAST? 

5252 

7041 


CIA 


5253 

1331 


TAD LNKPTR 

/PREVIOUS BLOCK 

5254 

7650 


SNA CLA 


5255 

5600 


JMP 1 SDECOD 

/YES 

5256 

1727 


TAD 1 BLKPTR 

/NO, READ IN BLOCK 

5257 

4264 


JMS SREAD 


5260 

5600 

/ 

JMP 1 SDECOD 

/NOW RETURN 

5261 

1153 

/ 

SERROR, 

TAD PI 2 


5262 

4477 


JMS 1 ERR1 


5263 

5545 

/ 

JMP 1 P7600 




/TO READ OR WRITE 200 WORDS FROM FIELD 1 



/BLOCK (IN FIELD 1) TO BE READ MUST BE IN AC 



/IF SNUM IS ZERO, WRITE 


5264 

0000 

/ 

SREAD, 

0 


5265 

7041 


CIA 


5266 

3331 


DCA LNKPTR 

/-BLOCK NUMBER 


% 




2 







5267 

5270 

5271 

5272 

5273 

5274 

5275 

5276 

5277 

5300 

5301 

5302 

5303 

5304 


5305 

5306 

5307 

5310 

5311 

5312 

5313 


1112 

2331 

5267 

33,04 

1303 

3377 

1145 

3331 

1332 

7650 

5366 

5355 

5400 

0000 


0000 

3332 

1727 

4264 

1311 

3332 

5705 


/PAGE STARTING ADDRESSES 
TAD C200 
ISZ LiNKPTR 
JMP .-2 
DCA FROM 
TAD BUF 
, DCA TO 

/READ OR WRITE? 

TAD P7600 
DCA LINKPTR 
TAD SNUM 
SNA CLA 
JMP WRITE 
JMP READ 

BUF, 6400 

FROM, 0 

*5305 

S WRITE, 0 

DCA SNUM 
TAD I BLKPTR 
JMS SREAD 
TAD . 

DCA SNUM 
JMP I SWRITE 

*5335 


5335 

0001 BLKTBS, 

1 

5336 

0002 

2 

5337 

0003 

3 

5340 

0004 

4 

5341 

0005 

5 

5342 

0006 

6 

5343 

0007 

7 

5344 

0010 

10 

5345 

0011 

1 ] 

5346 

0012 

12 

5347 

0013 

13 

5350 

0014 

14 

5351 

0015 

15 

5352 

0016 

16 

5353 

0017 

17 

5354 

0000 

0 


5355 

5356 

5357 
5360 


6211 

1704 

2304 

6201 


*5355 

READ, 


CDF+10 
TAD I FROM 
ISZ FROM 
CDF 


/INDEX 

/index 

/SET TO READ (WRITE) 200 WORDS 
/ZERO FOR WRITE 


/INDEX 


/SET TO WRITE 


/RESET TO READ 


3 









5361 3777 


DCA 1 TO 

5362 2377 


ISZ TO 

5363 2331 


ISZ LNKPTR 

5364 5355 


JMP READ 

5365 5664 

/ 

WRITE, 

JMP 1 SREAD 

5366 1777 

TAD 1 TO 

5367 2377 


ISZ TO 

5370 6211 


CDF+10 

5371 3704 


DCA 1 FROM 

5372 2304 


ISZ FROM 

5373 6?01 


CDF 

5374 2331 


ISZ LNKPTR 

5375 5366 


JMP WRITE 

5376 5664 


JMP 1 SREAD 

5377 0000 

TO, 

/ 

/ 

/ 

0 

BLKPTR 

5327 


BLKTAB 

5330 


BLKTBS 

5335 


BUF 

5303 


BUFTOP 

5333 


CDSVRV 

6200 


C200 

0112 


ERR1 

0077 


FROM 

5304 


LnKPTR 

5331 


Ml 

0133 


PI 2 

0153 


PI 740 

5334 


P3 

0151 


P37 

0142 


P7400 

0156 


P7600 

0145 


READ 

5355 


SADR 

0023 


SDECOD 

5200 


S ERR OR 

5261 


SNUM 

5332 


SREAD 

5264 


SVIRTL 

5221 


SWRITE 

5305 


TO 

5377 


VADR 

0022 


WRITE 

5366 



/INDEX 
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